﻿Public Class ucAutoridades



    Public Property getIdAutoridade() As Integer

        Get
            Return cmbAutoridades.SelectedValue

        End Get

        Set(ByVal value As Integer)

            cmbAutoridades.SelectedValue = value

        End Set

    End Property


    Public Property getAutoridadeSelecionada() As Integer

        Get
            Return cmbAutoridades.SelectedValue

        End Get

        Set(ByVal value As Integer)

            cmbAutoridades.SelectedValue = value

        End Set

    End Property

    Public Property getNomeAutoridade() As String

        Get
            Return CType(cmbAutoridades.SelectedItem, autoridadeVO).NOME_AUTORIDADE

        End Get

        Set(ByVal value As String)

        End Set

    End Property


    Public Property getNomeAutoridadePrefixo() As String

        Get
            Return CType(cmbAutoridades.SelectedItem, autoridadeVO).PREFIXO & " " & CType(cmbAutoridades.SelectedItem, autoridadeVO).NOME_AUTORIDADE

        End Get

        Set(ByVal value As String)

        End Set

    End Property

    Private Sub ucAutoridades_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not DesignMode Then

            Try

                Dim autoridadeBo As New autoridadeBO
                'Dim id_secao As Integer = 0
                Dim lista As New Generic.List(Of autoridadeVO)

                If Not IsNothing(Login.Usuario.USUARIOLOGADO) Then
                    lista = autoridadeBo.getAutoridadesAtivasSecao(Login.Usuario.USUARIOLOGADO.SECAO.ID_SECAO, True)
                    'Else
                    '    lista = autoridadeBo.getAutoridadesAtivasSecao(id_secao, True)

                End If

                If lista.Count = 1 Then
                    cmbAutoridades.Items.Insert(0, "Não há autoridades cadastradas para esta seção")
                    cmbAutoridades.SelectedIndex = 0
                Else

                    cmbAutoridades.DisplayMember = "NOME_AUTORIDADE"
                    cmbAutoridades.ValueMember = "ID_AUTORIDADE"
                    cmbAutoridades.DataSource = lista

                End If


            Catch ex As Exception
                generica.gravaErro(ex)
            End Try

        End If


    End Sub

    Private Sub cmbAutoridades_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cmbAutoridades.KeyPress

        e.Handled = True

    End Sub

    Public Event cmbAutoridadesSelectionChangeCommitted(ByVal sender As System.Object, ByVal e As System.EventArgs)


    Private Sub cmbAutoridades_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbAutoridades.SelectionChangeCommitted
        RaiseEvent cmbAutoridadesSelectionChangeCommitted(sender, e)
    End Sub

    Private Sub cmbAutoridades_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbAutoridades.SelectedIndexChanged

    End Sub
End Class
